home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •Interesting Stuff• / I-CHING v1.0 ••• / I-CHING v1.0 еее / card_2951.txt < prev    next >
Text File  |  1990-10-02  |  3KB  |  156 lines
  1. -- card: 2951 from stack: in.0 –µ–µ–µ
  2. -- bmap block id: 28825
  3. -- flags: 0000
  4. -- background id: 2604
  5. -- name: Title Card
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=450 top=248 right=287 bottom=489
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 32462 / 32462
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Help1
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set userlevel to 1
  23.   visual effect wipe left
  24.   go to card id 3676
  25. end mouseUp
  26.  
  27.  
  28.  
  29.  
  30. -- part 2 (button)
  31. -- low flags: 00
  32. -- high flags: 0000
  33. -- rect: left=450 top=207 right=247 bottom=489
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 14767 / 14767
  36. -- text alignment: 1
  37. -- font id: 0
  38. -- text size: 12
  39. -- style flags: 0
  40. -- line height: 16
  41. -- part name: About2
  42. ----- HyperTalk script -----
  43. on mouseUp
  44.   show card field id 4 of card id 2951
  45. end mouseUp
  46.  
  47.  
  48.  
  49. -- part 4 (field)
  50. -- low flags: 01
  51. -- high flags: 0004
  52. -- rect: left=136 top=105 right=285 bottom=407
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 1
  56. -- font id: 3
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: About
  61. ----- HyperTalk script -----
  62. on mouseup
  63.   hide the target
  64. end mouseup
  65.  
  66.  
  67.  
  68. -- part 6 (button)
  69. -- low flags: 00
  70. -- high flags: A004
  71. -- rect: left=232 top=305 right=327 bottom=332
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: TAO!
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   answer "Have you thought out your question?" with "No" or "Yes"
  83.   if it is "Yes" then
  84.     answer "Your Hexagram will now be generated." with "OK"
  85.   else
  86.     answer "Please think out your question first." with "Ok"
  87.     exit mouseup
  88.   end if
  89.   put the random of (64) into x
  90.   Go to card "Hex" & x
  91.   put the random of (6) into field "Change Number"
  92. end mouseUp
  93.  
  94.  
  95.  
  96. -- part 7 (button)
  97. -- low flags: 00
  98. -- high flags: 2000
  99. -- rect: left=450 top=288 right=320 bottom=489
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 20098 / 20098
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Home1
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   set userlevel to 2
  111.   click at loc of card field "Hello"
  112.   type "Thank You for using the I Ching."
  113.   wait 2 seconds
  114.   delete line one in card field "Hello"
  115.   click at loc of card field "Hello"
  116.   type "Tao!"
  117.   wait 1 seconds
  118.   delete line one in card field "Hello"
  119.   visual effect dissolve
  120.   go home
  121.   show menubar
  122. end mouseUp
  123.  
  124.  
  125.  
  126. -- part 12 (field)
  127. -- low flags: 00
  128. -- high flags: 0001
  129. -- rect: left=120 top=63 right=81 bottom=427
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 1
  133. -- font id: 3
  134. -- text size: 12
  135. -- style flags: 256
  136. -- line height: 16
  137. -- part name: Hello
  138.  
  139.  
  140. -- part contents for card part 4
  141. ----- text -----
  142.  
  143.  I-CHING 
  144.  Version 1.0
  145.  
  146. This is FreeWare.
  147.  Feel free to give it, or throw it away.
  148. But don't sell or modify it.
  149.  
  150.  Copyright ¬© 1987
  151. All Rights are Reserved.
  152.  Mutant Machinations ‚Ñ¢
  153.  
  154.  
  155.  
  156.